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3 addresses in the range of 1 to 26 when doing physical 1/0. 
0 v02-003 TCM0001 Trudy C. Matthews 19-Jun-1981 
0 Clear R1 (which becomes the second longword of the I0SB) 
0 before exiting. This is because certain code paths through 
0 1/0 completion (notably for paging 1/0 and swapping 1/0, 
0 when this driver is being used for standalone sysgen systems) 
3 expect the second longword of the I0SB to be zero. 
0 ° 
8 ; STAR FLOPPY DRIVER UTILITY ROUTINES 
3; MACRO LIBRARY CALLS 
SADPDEF ;DEFINE ADP OFFSETS 
SCRBDEF DEFINE CRB OFFSETS 
SEMBDEF DEFINE EMB OFFSETS 
SIDBOEF DEFINE IDB OFFSETS 
SIODEF sDEFINE 1/0 FUNCTION CODES 
SIRPDEF sDEFINE IRP OFFSETS 
SPROEF sDEFINE PROCESSOR REGISTERS 
SSSOEF sDEFINE SYSTEM STATUS VALUES 
0 SUBADEF DEFINE UBA REGISTER OFFSETS 
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DRIVER UTILITY ROUTINES  15-SEP=1984 23:57:69 YAX/VMS Macro v04-00 Pose 
RATION abt ag ra TE 6 As Ss + os 
LSBTTL START 1/0 OPERATION 

+ 

DXSSTARTIO = START I/O ON FLOPPY DEVICE UNIT 

THIS ROUTINE IS ENTERED VIA A.'BSBW" TO START 1/0 ON A DEVICE UNIT. 

CONTROL ALTERNATES BETWEEN THE FLOPPY DRIVER AND THIS CODE. THIS ROU= 

TINE I$ CALLED TO PERFORM HARDWARE INDEPENDANT PROCESSING. ALL HARD= 

WARE SPECIFIC PROCESSING IS PERORMED BY DEVICE-SPECIFIC CODE IN THE 


DRIVER. 
THE PROTOCOL IS AS FOLLOWS: 
1. THE DRIVER CALLS DXSSTARTIO TO ESTABLISH INITIAL CONDITIONS. 


2. DXUTILITY COMPUTES THE PHYSICAL MEDIA ADDRESS AND BUFFER ADDRESS 
AND EXECUTES A CO-ROUTINE CALL TO THE DRIVER. 


3. THE DRIVER POSITIONS THE MEDIA, PERFORMS we ADDITIONAL HARDWARE 
FUNCTIONS AND RETURNS CONTROL fO DXUTILITY 


4. CONTROL ALTERNATES BETWEEN THE DRIVER AND DXUTILITY UNTIL ONE 
SECTOR OF DATA HAS BEEN TRANSFERRED TO THE INTERNAL BUFFER. 


5. eet ty FLAGS COMPLETION OF A SECTOR TRANSFER AND CALLS THE DRI- 


VER TO PERFORM END-OF-SECTOR PROCESSING AND DROP TO FORK LEVEL. 
6. THE DRIVER CALLS gg he TO UPDATE THE MEDIA ADDRESS. IF MORE 
DATA REMAINS TO BE TRANSFERRED, DXUTILITY TRANSFERS CONTROL TO 
STEP 2 TO CONTINUE PROCESS NG. 
EACH CO-ROUTINE CALL SITE CONTAINS A CONTINGENCY EXIT ADDRESS. IN THE 
EVENT OF ~ HARDWARE ERROR, CONTROL WILL BE PASSED TO THE ERROR HANDLER 
TO EFFECT A RE-TRY OR TERMINATE THE REQUEST. 
INPUTS: 


R3 = ADDRESS OF 1/0 PACKET 
RS = UCB ADDRESS OF DEVICE UNIT 
OUTPUTS: 


eeeeeeeOUTPUTSereeeee 
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.ENABL LSB 
DXSSTARTIO:: START 1/0 OPERATION 

BBS aRPSY, pHYS1O O IRESW, STS<RS) , ),1$ ;BYPASS BLOCK COMPUTATION IF PHYSICAL 

EMUL A(R3),#0,RO ;SCALE LBN, QUAD RESULT TO 

MOV ZBL cay " EUDEPEND(RSS Ro ;GET NUMBER OF SECTORS. PER TRACK 

EDIV R ned TA(R3) ; COMPUTE SECTOR 

MOVZBL tithe *DEWD PENDS (R5),.R2 :GET TRACKS PER CYLINDER 

EDIV »RO-RO,R ; COMPUTE TRACKS (R1), CYL. (RO) 

MOVE R1, [RPSL MEDIA#1(R3) sSAVE TRACK ADDRESS 


ae 4 


DXUTILITY = FLOPPY DISK DRIVER UTILITY ROUTINES  15+SEP+1984 23:57:49 YAX/VMS # 4- p | 
v04 START 1/0 OPERATION out! SEE ISRS G5:32:93 HAXIVES Saeco VOe ree mans Om 69) 


3A a3 650 380 a6 1 1s MOV RO, IRPSL_MEDIA+2(R3) 3SAVE CYLINDER ADDRESS 
00D8 C 7E A 8 1 ; MOVW UCBSW_BCNT(RS) ,UCBSW_DXx Bears) TORE BYTE COUNT 
Bf g AS 3 E 198 %$ BBCC #UCBST_DXx WRITE ,UCBSO_ DEVSTS(R5) ‘3 sCLEAR WRITE FLAG | 
01 30 OOAl 1 BSBW SETUP BUFFER PARAMETERS | 
50 20 a3 86 gf AG 13 EXTZV tts 34+ MIRPSS _F cove IRPSW_F rede (3 ;GET FUNCTION CODE 
C i AA 195 CHP ,#108_READPBLK ZREAD PRY PAYS} SICAL BLOCK? | 
ee 
00 68 AS E as, 199 35: BBSS #UCBSV_DX_WRITE,UCBSW_ DEVSTS(R ) §S . sSET WRITE FLAG 
OOEE 30 a4 1 $ vn BSBWY MOVFRUSER [GET INITIAL SECTOR FULL OF DATA 
0080 of? gest 3 90 7 1 ; MOVB uCcBsB me iy ha ft ofhreurnsy Bh ae fe a RETRY COUNT 
04 20 f 1 : BBC #10$V71 TAPS (R3) BIT CLEAR, PERFORM NORMAL RETR 
0080 ¢ 4 c F ions CLRB =: UCSB ~ERTONT ERS) ONT INAIBIT aé tries ON ERROR 
908} 0 00C7 [ - =e Oe RKSEC COMPUTE MEDIA ADDRESS 
4605 0 Ae 91 cA 6 cHPS is ) ,UCBSW -crLinoens(asi¢¢ LEGAL L DISK ADDRESS? 
64 AS O0E8 BF AA 0001 03 BICW #UCBSM_CANCEL !- 3; CLEAR CANCEL 1/0, 
0D7 UCBSM_INTTYPE!= : INTERRUPT phe +, 
0D7 10 UCBSM “POWER != sPOWERFAIL 
34 i 208: UCBSA” TIMOUT ,UCBSW_STS(R5) 3 TIMEOUT ait BITS 
536 907 i oo of TFLAG READY FOR TRANSFER 
> 9 16 D9 14 JSB8 a(SP)+ ;SEEK/TRANSFER ONE BYTE DATA 
5 04 0008 15 CLRL R3 UME TRANSFERRED LAST BYTE 
00D0 C b¢ ODD 16 INCL UCBSL_DX_BFPNT(RS) s INCREMENT BUFFER 
OODA C BES 1 DECB CBSB_OX_SCTCNT(RS) ;DECREMENT sectan COUNT 
FO 12 e3 18 BNEQ 0$ il NEQ TRANSFER ANOTHER BYTE 
3 18 E 1 JSB a(SP)+ 3CALL THE CAL LER 
09 3 €9 0 BSBW XFER : TRAN NSFER DATA TO/FROM USER 
3F 50 —séED EC 1 BLBC RO, 1OSUCC TIF LBC DONE 
ae 
er $i : COMPUTE NEXT MEDIA ADDRESS 
EF . 
53 H A 00 €F } MOVL UCBSL_IRP(R5) ,R3 : Get address of 1/0 packet. 
AS 96 OOF3 g INCB [RPSL REDIACRS) ; Increment sector address. 
BA 91 4) CMPB IRPSL_MEDIA(RS) ,- ; Is the new sector address greater 
44 A F 0 UCB$B~SECTORS(R5) 3 than the number of sectors per track? 
0. £0 FB 1 BBS #iRPs? rurale: : Branch if performing physical 1/0. | 
07 2A A F ; 1RPSW_STS(R ):508 : | 
C 1F 601 BLSSU 0$ : Branch if new lo ical sector address 
1 4 ; is on the same 
38 a3 : 5 cLae és MEDIACR3) ; gchorvise. res reset sector address to 0. | 
BE 18 ; 50$: BLEQU $ ; Branch if 4 new p hysteat sector address 
109 8 3; _is on the same 
38 AS) 6001S 90s—s«€01099 MOVB #1, IRPSL_MEDIA(R3) 3; Otherwise, reset sector address to 1. 
3A AS 96 19 40 608:  INCB IRPSL_MEDIA+ (RS) : Increment track address 
AA 91 O1 41 CMPB IRPSL-MEDIA+2(R3),- 3; Is the new track pe te reater than 
46 A 1 4g cv CYLINDERS (R5) : the number of tracks on the disk. 
BO FF Q11 4 BLSSU ; Branch if within range. 
11 44 708: RPTERR #SS$_IVADDR ; Otherwise, invalid disk address. | 
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- FL 
STAR 


a 


IF PRESENT 
BYTES TRANSFERRED 
0 IN RI 


FER 
TE 
ZER 


TIC 
sie 


A 
S 
Q 
+ FATAL HARDWARE ERROR 
: SAVE SH 
i} 
TERMINATE REQ 


sRETRY ON POWER FAIL 


ENT RETRY COUNT 
GTR, TRY AGAIN 
RMINATE REQUEST 


AGNO 


E 
& 
H 
BC 
$ 
REM 


R 
H 
T 
T 
s 
;ZERO COROUTINE ADDRESS ON STACK 
BUF 
om 
ST 


SET SUCCESS 


5 
FILL 
NTCR 


_STS(R 
bt 
) .uCBSw_Bt 


ERTCNT(R 
»RT> 


RIABLE ERROR 
0 


AL ERROR 
BSV_POWER,U 


é 
Site 


Pb 


R3,FUNCXT 
G*10C$D1AGBUF I 
UCBSW_DX_BCR(R 


FUNCXT 
#*AcR 


B 
B 
-DSABL LSB 
($P) 
RO 


#U 


= ADDRESS OF UCB 
P) = RETURN TO DRIVER RESTART CODE 


= ERROR SEVERITY INDICATION 


W 
R 
Y 
0 
§ 
RO = ERROR STATUS CODE 
R 
MOVZ2WL #SS$_NORMAL RO 


DXSERR = CONTINGENCY EXIT HANDLER 

E 
A 
N 

R5 

(S$ 

NONE 

BLBC 

BBS 


TERMINATE REQUEST SUCCESFULLY 
FUNCTION COMPLETION COMMON EXIT 
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IOSUCC: 
FUNCXT: 
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- R TY ROUTIN 15-SEP-1984 :57:49 VAX/VMS Macro v04-00 Page 
one i: START 1/0 OPERATION sr mene eS 3=§ ats 7 RLS DRIVER. SRCJOXUTILITY.MAR; 1 . dy 
148 j 3 TRKSEC = CONVERT LOGICAL TO PHYSICAL DISK ADDRESS | 
14 4 : THIS ROUTINE IS ENTERED VIA A ‘BSB’ TO CONVERT A LOGICAL DISK | 
148 5; ADDRESS TO A by ICAL ADDRESS. IF THE PHYSICAL I/O FLAG IS SET 
148 ; : IN THE 1/0 REQUEST PACKET, THE CONVERSION CONSISTS OF SIMPLY 
148 : MOVING THE LOGICAL TRACK, SECTOR AND CYLINDER ADDRESSES IN 
148 § : E PACKET MEDIA LONGWORD TO THE MEDIA ADDRESS LONGWORD IN 
148 : THE UCB. IF LOGICAL 1/0 Is BEING PERFORMED, THEN THE LOGICAL 
148 310 : ADDRESS IN THE 170 PACKET IS CONVERTED TO A PHYSICAL ADDRESS 
148 311 : BY APPLYING INTERLEAVE AND TRACK-TO-TRACK SKEW. THE RESULT IS 
148 ; PLACED IN THE UCB MEDIA ADDRESS LONGWORD. 
148 1 > INPUTS: 
148 1 : 
. 148 317: RS = ADDRESS OF UCB 
148 18 : 
148 19 : OUTPUTS: 
148 1: R2 = POINTER TO PHYSICAL MEDIA ADDRESS 
148 § 3 UCBSL_MEDIA CONTAINS THE PHYSICAL MEDIA ADDRESS 
ae 
148 : 
3 58A5 00 14B $ eters: MOVL UCBSL_IRP(RS) ,R3 iGET ADDRESS OF REQUEST PACKET 
52° ra c 3 14F 0 MOVAB UCBSL-MEDIA(RS) .R2 [POINT TO PHYSICAL MEDIA ADDRESS 
62 0085 % 06 154 1 MOVL RPSL MEDIAC(R3) , (R2) iCOPy OGICAL ADDRESS 
23 2A A308 138 BBS #IRPSO_PHYSIO, IRPS$W_STS(R3),10$ ;BYPASS CONVERSION IF PHYSICAL 1/0 
1 62 9A 015D g MOVZBL (Rg) RT :GEf CURRENT LOGICAL SECTOR 
2} C 91 016 4 CMPB #121 SSET C IF 12 < SECTOR <= 26 
51 1 08 i 5 ADWC = R11 [DOUBLE SECTOR NUMBER, ADD INTERLEAVE FACTOR 
50 02 A2 9A 0166 6 MOVZBL 2(R2),RO :GET CYLINDER NUMBER 
ob nn hae GA Blet 338 SGOL UCbSe SECTORS(RS) <(SP) LGET SECTORE/TRACK ve eee 
51 mo § is 195 9 EDIV 2 CSTR TUN 7 SMODULO SECTOR INTO SECTORS PER TRACK 
1 06 153 40 INCL 1 SOFFSET SECTOR NUMBER BY 1 
62 51 90 O17A 341 MOVE = R}'1,, (R2) TSAVE SECTOR ER 
02 A2 9% 1 4g ia INCB =. 2¢R2) ZINCREMENT PAST UNUSED CYLINDER 
05 44 “O68 ; 
181 46 + | 
4 : XFER = TRANSFER DATA TO OR FROM USER 
181 #8 t THIS ROUTINE IS ENTERED VIA A BSB TO TRANSFER ONE SECTOR'S WORTH OF DATA | 
: : TO OR FROM THE USER'S PROCESS. 
5 + INPUTS: | 
: RS = ADDRESS OF UCB 
H ; UCBSW_DX_BCR = BYTES LEFT TO TRANSFER | 
181 $87 ; outputs: | 
181 8; | 
| 
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1 
DxUT = FLOPPY DISK DRIVER UTILITY routines ig-sep 71384 33: :57:49 VAX/VMS Macro V04-00 Page 9 
v06 START 1/0 OPERATION -SEP :14:19 (CORIVER.SRCJOXUTILITY.MAR; 1 (1) | 
181 59 ; SB SET = MORE DATA TO TRANSFER | 
181 ; ie DX BCR = COUNT OF BYTES REMAINING 
! ! 3 LSB6 CCEAR = NO MORE DATA TO TRANSFER | 
181 $e i | 
181 65 .ENABL LSB | 
181 es XFER: : | 
7E D4 0181 68 CLRL = ($B) ASSUME REQUEST COMPLETE 
45 10 01 : $ BSBB SETBU i SETUP TRAN ANSFER B PARAMETERS 
008 C3 28 A 1 9 SUBW R2,U bsw DX_BCR(RS) :UPDAT g By te COUN | 
68 A Fl A , BBC ste V_DR_WRITE,UCBSW -DEVSTS(RS »,10 COACH IF READ REQUEST 
39 19 191 rg BSBB Os SE'TBUF 3GET MORE DATA FROM USER 
10 1 1983 7% BSBB MOVFRUSER Sane 
08 11 198 £3 ae BRB 20$ 3EXIT SUCCESSFULLY 
17. 10 0197 8 " «BSBB =—s MOVTOUSER iMOVE DATA TO USER 
0008 ¢S_ BS (0199 28 TSTW YCBSW_DX_BCR(RS) [TRANSFER COMPLETE NOW? 
62 1 190 19 an BEQL 0$ [IF EQL YES 
6E 06 19 i on INCL (SP) 'SET SUCCESS 
50 BE v0 1A1 3 “MOVE «= CSP) +, RO TSET SUCCESS 
0 1Ag 4 RSB F 
103 : .DSABL LSB 
hae ee 
1A 89 + MOVFRUSER - MOVE DATA FROM USER TO FLOPPY BUFFER 
1A2 91 INPUTS: 
1A 9 ; 
1A 93 ; R1 = ADDRESS OF FLOPPY BUFFER 
1A 9% : Re = BY 
1A 95 : RS = ADDRESS OF UCB 
1A 38 3 
A 4 ; OUTPUTS: 
1A 38 THE CONTENTS OF THE INTERNAL BUFFER ARE COPIED FROM THE USER'S 
1A5. 400: ADDRESS SPACE. 
1A 401 ; 
1A 4 ; i- 
105 
A 4 4 .ENABL LSB 
1A5 406 MOVFRUSER: ; | 
54 52 oO 0105 4 MOVL R2,R4 SSAVE BYTE COUNT 
00000000 ' GF 16 10B CG JSB G* [OCSMOVFRUSER [MOVE DA 
09 «1 1A 40 BRB 10$ [UPDATE BUFFER ADDRESS | 
18 411 ;¢ 
18 41 > MOVTOUSER = MOVE CONTENTS OF FLOPPY INTERNAL BUFFER TO USER | 
180 414 THIS ROUTINE IS CALLED TO TRANSFER THE CONTENTS OF THE FLOPPY DATA 
180 415 : BUFFER TO THE USER'S ADDRESS SPACE. 


K 1 
KUTILITY - FLOPPY DISK DRIVER UTILITY routines 15<$ po :57:469 VAX/VMS Macro V04-00 Page 10. 
vad tt START 1/0 OPERATION a8 138¢ 88; :14: 43 YORIVER. SR SREIDXUTILITY. WAR:T (1) | 
180 416; 
i a] : INPUTS: 
180 419: = ADD DRESS OF FLOPPY BUFFER 
180 420: Re = BYTE COUNT 
18 4 ; = ADDRESS OF UCB 
18 4 ; + OUTPUTS: 
18 4 5: THE FLOPPY BUFFER CONTENTS ARE COPIED TO THE USER'S ADDRESS SPACE 
183 $89 - 
1B 258 novrouseR: 
og 52 pO 0180 430 MOVL R4 ¢SAVE BYTE COUNT 
00000000'GF 16 18 4 1 oe JSB G* [OCSMOVTOUSER ;MOVE DATA TO USER'S BUFFER 
70 aS) 54—COAs«iBD Q “ appw 4, UCBS$W_BOFF (RS) *UPDATE PAGE OF FSET 
70 AS) FEQO BF) OA s«<O1BD G3 Bicw  =#* g<* NOIFFS UCBSU. BOFF(R5S) ;MAKE MODULO PAGE SIZE 
4 12 103435 BNEQ 208 7 IF’ NEQ PAGE BOUNDARY NOT CROSSED 
78 aS 004 ti 1c 4 6 ee ADDL #4,UCBSL_SVAPTE(RS) ;UPDATE ADDRESS OF USER PTE 
05 1¢9 4 : "  RSB ; 
1CA 440 .DSABL LSB 
+ ie + (ieee 
ICA ces : SETBUF = SETUP PARAMETERS FOR TRANSFER TO OR FROM USER'S BUFFER 
1CA 465 : THIS ROUTINE IS ENTERED VIA A BSB TO INITIALIZE ALL PARAMETERS REQUIRED 
GICA 44g + TO TRANSFER ONE SECTOR OF DATA TO OR FROM THE USER'S PROCESS. 
ICA 448 > INPUTS: 
ICA 430 : RS = ADDRESS OF UCB 
ICA 43¢ : OUTPUTS: 
1CA t37 : R1 = ADDRESS OF SECTOR BUFFER 
1CA 6455: R2 = NUMBER OF BYTES TO TRANSFER TO OR FROM USER 
1CA 436 : UCB$B_SECTCNT = 1 
1CA 6457: UCBSL“DXBFPNT = ADDRESS OF SECTOR BUFFER 
Ik SB 
1CA 460 SETBUF: : 
50 00p8 5 3c O1CA 461 MOVZWL vette X_BCR(RS) ,RO [GET COUNT OF BYTES REMAINING 
52 8 A O1CE 46¢ MOVZBL SASSUME FULL SECTOR TO TRANSFER 
ACS é 1D3 4 MOVB ute _Dx SCICNT (RS) TRESET SECTOR COUNT 
1 Bgcc D0 01D 464 MOVL ne bx8 BUF (RS [GET BUFFER ADDRESS 
0 ¢ D0 O1DD 465 MOVL uce L7Dx TBF PNE ERS) [SET ADDRESS 
0 g 1E 466 CMPU RR TSECTOR EXCEED BYTES LEFT 
F O1NS 4 BLSSU 1 “" :IF LSSU NO 
52 DO O17? 4 : MOVL  RO,R2 [SET COUNT TO SMALLER AMOUNT 
1EA 469 108: : 
ok a , 
1EB 472 DXP_END:: 
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Pass 

—s table sort 
Pass 

Symbol table output 
Psect synopsis output 


Cross-reference output 
Assembler run totals 


The gthe set Limit was 1650 pa 
91445 bytes (179 pages) of virtua 
There were 90 pages of symbol tab 
474 source Lines were read in Pas 


Macro Library name 


$25 5$DUA28: [$08 1L18.ML8;1 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 
TOTALS (all Libraries) 

1852 GETS were required to define 


There were no errors, warnings or 
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DXUTILITY - FLOPPY DISK DRIVER UTILITY routine’ 137 3Ee- 138% 63:37:48 AX/VMS Macro V04-00 Page 13 
Psect synopsis -SEP-1984 :14:19 (CORIVER.SRCJOXUTILITY.MAR;1 (1 
t¢eawmnmesnwocscomacan $ 
! Psect synopsis ! 
¢ ewe acseascamnmoesas > 
PSECT name Allocation PSECT No. Attributes 
ABS. 8 £08 ( 8-3 0 ¢ 9. NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
$aBss ( of 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$115_DRIVER 168 (¢ 491.) 2¢ 2.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
dose wcacae esenneccceszreanscecoen $ 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 34 :00: 4 0:00:0 9? 
Command processing 118 :00: 0:05.34 
421 :00: 0:47.45 
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es. 

memory were used to buffer the intermediate code. 
le spate allocated to hold 1719 non-local and 16 local symbols. 
s 1, producing object records in Pass 2. 


26 pages of virtual memory were used to define 25 macros. 


+ 
! Macro library statistics ! 


dao ean ema senor acne ea ween ee ans $ 


Macros defined 


21 macros. 
information messages. 


MACRO/LIS=LISS$:DXUTILITY/OBJ=OBJ$:DXUTILITY MSRCS:DXUTILITY/UPDATE=(ENHS:DXUTILITY) *EXECMLS/LIB 
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